If a = 1 Then
   Debug.Print "Verdadero, a = 1"
   ' Resto de sentencias
Else
   Debug.Print "Falso, a <> 1"
   ' Resto de sentencias
End If
